setwd("E://experiment//wang")
library(openxlsx)
library(dplyr)
options( java.parameters = "-Xmx4096m" )
hsa_MTI<-read.xlsx("../data/rna-multiple-sclerosis/2/microRNA-Gene.xlsx",sheet=1)
hsa_MTI=hsa_MTI%>%
  dplyr::select(miRNA,Target.Gene)
miRNA_gene=hsa_MTI[!duplicated(hsa_MTI),]
miRNA=hsa_MTI[!duplicated(hsa_MTI$miRNA),]$miRNA
gene=hsa_MTI[!duplicated(hsa_MTI$Target.Gene),]$Target.Gene
